home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
music
/
naizou
/
h_kobaya
/
trn02
/
trn02.mml
< prev
Wrap
Text File
|
1994-11-27
|
16KB
|
948 lines
/*********************************************************************
/ Franz Liszt "Transcendental Etudes 2. a-moll"
/ MML by H.Kobayashi
/*********************************************************************
/
#include "trn02.h"
/
/*********************************************************************
/ MML detail (2) main
/*********************************************************************
.next
t152$PI o4l8v7 r4reee
$PI o4l8v7 r2r4
$PI o4l16v7 r2r4
$PI o5l8v7 r2r4
$PI o4l8v7 r2r4
$PI o4l8v7 r2r4
$PI o2l8v7 r2r4
$PI o2l8v7 r2r4
.next
t76 !+1'9e4. t152fff
r4r eee
r2r4
r2r4
r2r4
r2r4
r2r4
r2r4
.next
t76 !+1'9f4. t152l16 rfrfrf&
!+1'9e4. l16 rerere&
r2r4
r2r4
r4r b-b-b-
r4r ddd
r2r4
r2r4
.next
t76 f4.]#4 t152rg+rg+rg+]#4
e4.]#4 rfrfrf]#4
r4r8]#4 rerere]#4
r2r4
]b-4.[#4 bbb]#4
]d4.[#4 ddd]#4
r2r4
r2r4
.next
rg+ra]#4 rara]#4 rara&]#4
rfrf]#4 rfrf+]#4 rf+rf+&]#4
rere]#4 rere]#4 rere&]#4
r2r4
bb]#4 bb]#4 bb]#4
dd]#4 dd+]#4 d+d+]#4
r2r4
r2r4
.next
l8 ar v11 >>err4
l8 f+r v11 >brr4
l8 er v11 >g+rr4
r4 v11 err4
br v11 <err4
d+r v11 <<brr4
r4 v11 g+rr4
r4 v11 err4
.next
v6 r4r l16 q5 <rerf+rg+
v6 r4r l16 q5 <rerf+rg+
v6 r2r4
r2r4
v6 r4r >eee
v6 r4r q5 >ed+d
v6 r2r4
v6 r2r4
.next
#define A rarb>rc <ra]#4rb>rc<]#4
$A
$A
r2r4
r2r4
%d32 ]e4.[ %d%0 <e]#4ee]#4
c<ba >c]#4<ba]#4
r2r4
r2r4
.next
#define A rbra[#3 rg+rf[#3 rerd[#2
$A
$A
r2r4
r2r4
]e4.[[#3 e [#3ee[#2
g+f[#3e f+[#3gg+[#2
r2r4
r2r4
.next
#define A rc<rbra >rc]#4<rbra]#4
$A
$A
r2r4
r2r4
]e4.[ e]#4ee]#4
ab>c <a]#4g+f]#4
r4r o2e]#4ee]#4
r2r4
.next
rg+] q9 rf[#4rf[#2 rfrfrf[#2
rg+] q9 rb[#4ra+[#2 rarg+rg+[#2
r2r4
r2r4
l16 e8] q9 >er[#4er[#2 ererer[#2
l16 e8] q9 >>dr[#4c+r[#2 cr<brbr[#2
err2
r2r4
.next
t-8 rf[#2rfrf[#2 t-8 rfrf[#2rf
rg[#2rf+rf[#2 rerf[#2re
r2r4
r2r4
er[#2erer[#2 erer[#2er
a+r[#2arar[#2 g+rar[#2g+r
r2r4
r2r4
/---------------------------------------------------------------------
.next
#define X e&a&'8g+ a&>c&<'8b >c&e&'8d+
t152l24 q9v6 $X $X
l16 q8v6 >crerar >crerar
l16 q8v6 r2r4
r2r4
l8 q5v6 %d32 o4rcc ccr
l8 q5v6 %d64 o3ree eer
l8 q5v6 o2raa aar
l8 q5v6 r2r4
.next
#define Y f&e&'8d+]#3 f&e&'8d+]#3 f&e&'8d+]#3
$X ]#3 $Y
>crerar]#3 >cr]#3 cr]#3 cr]#3
r4r8]#3 o6ar]#3 ar]#3 ar]#3
r2r4
rcc]#3 c]#3 c]#6 r %d%0
ree]#3 e]#3 e]#6 r %d%0
raa]#3 a]#3 a]#6 r
r2r4]]#4
.next
#define Z (f&d&c+&<b-&a&g+&)2 f&<b&g+&f&e&'8g+
$Z
<b-8r8 r4 <'9d24r12r8
f8r8 r2
r2r4
rf ff rd
rb- b-b- rb
ra aa re
o2dr r4 er
.next
v9l8 r4r v6 aaa
v9l16 r4r8 v6q5 <'8crdrer
v9l16 q9 {<<a&>aa&>(a&<)3}4 !+2a8& v6q5 '8arbr>cr
r2r4
v9q8 car v6q5l16 rcrdre
v9q8 e>er v6q5l16 <rarb>rc
v9q8 <a>>cr r4r
r2r4
.next
]a4.[ a]#3 a]#3 a
frerd+r fr]#3 er]#3 dr
drcr<br >dr]#3 cr]#3 <br
r2r4
rfrerd+ rf]#3 re]#3 rd
rdrc<rb >rd]#3 rc]#3 <rb
r2r4
r2r4
.next
r4r v6 aaa
r4r8 v6 '8crdrer
v9 q9 {>a&>aa&>(a&<)3}4 !+2a8& v6q5 '8arbr>cr
r2r4
v9q8 c8a8r8 v6q5 rcrdre
v9q8 e8>e8r8 v6q5 <rarb>rc
<<a>>cr r4r
r2r4
.next
]a4.[ a]#3 a]#3 a
frerd+r fr]#3 er]#3 e-r
drcr<br >dr]#3 c+r]#3 cr
r2r4
rfrerd+ rf]#3 re]#3 re-
rdrc<rb >rd]#3 rc+]#3 rc
r2r4
r2r4
.next
r4r v6 b-b-b-
r4r8 v6 dre-rfr
v9 q9 {b-&>b-b-&>(b-&<)3}4 !+2b-8& v6q5 b-r>crdr
r2r4
v9q8 d8b-8r8 v6q5 rdre-rf
v9q8 <f8>f8r8 v6q5 <rb->rcrd
<<b->>dr r4r
r2r4
.next
t+2 ]b-4.[ t+2 a+a+a+
g-rfre-r f+rfrer
e-rdrcr d+rdrc+r
r2r4
rfrerd+ rf+rfre
re-rdrc rd+rdrc+
r2r4
r2r4
.next
t+2 ]b4.[#4 t+2 bbb
dr]#2er]#2f+r grf+rfr
<br]#2>c+r]#2d+r erd+rdr
r2r4
rd]#2re]#2rf+ rgrf+rf
<rb]#2>rc+]#2rd+ rerd+rd
r2r4
r2r4
.next
t+2 ]>c4.[#4 t+2 ccc[
er]#2fr]#2gr a-rgrg-r
cr]#2dr]#2er frere-r
r2r4
re]#2rf]#2rg ra-rgrg-
rc]#2rd]#2re rfrere-
r2r4
r2r4
.next
q9l16 {d-&>d-d-&>d-&<d-d-&}4 <d-8 ]#2 q5 rd-]#2rd-]#2rd-
r4r ]#2 ra]#2ra-]#2rg-
r2r4
r2r4
f>d-<g->d- <a->d-<]#2 ar]#2a-r]#2g-r
d-rdr fr ]#2 g-r]#2fr]#2dr
r2r4
r2r4
.next
q9 {c+&>c+c+&>c+&<c+c+&}4 <c+8 ]#2 q5 rc+]#2rc+]#2rc+
r4r ]#2 ra]#2rg+]#2rf+
r2r4
r2r4
f>c+<f+>c+ <g+>c+<]#2 ar]#2g+r]#2f+r
c+rdr fr ]#2 f+r]#2fr]#2dr
r2r4
r2r4
.next
rc+ v10 rd [ rdrd rdra
rf v10 rf+[ rf+rf+ rf+>rd
r8 v10 r8 [ r4 r8ra
r2r4
fr v10 c+r[ !+1f+r<f+r >!+1c+r<c+r
c+r v9 r2
r2r4
r2r4
.next
#define A rarara >rd]#2rd]#2rd
$A
rdrdrd ra]#2ra]#2ra
$A
r2r4
!+1f+r<f+r>!+1c+r <c+r]#2!+1f+r]#2<f+r
r2r4]#4
r2r4
r2r4
.next
#define A rdrara]#2 rara]#2ra
$A
ra>rdrd]#2 rdrd]#2rd
$A
r2r4
l8 ]>c+[f+]#2>c+ f+]#2c+c
l8 o1rf+]#2>c+ f+]#2c+c
r2r4
r2r4
.next
v11 q8l8 >rd]#2 dd]#2 dd]#4
v11 q8l8 ra]#2 ab-]#2 b>c]#4
v11 q8l8 >rf+]#2 f+f+]#2 f+f+]#4
v11 q8 o6rd]#2 dd]#2 dd]#4
v11 q8 f+c]#2 <bb-]#2 aa-]#4
v11 q8 f+c]#2 <bb-]#2 aa-]#4
r2r4
r2r4
.next
drg t80 v6 rr4
crd v6 rr4
f+rb v6 rr4
drg v6 rr4
a-rg v6 l16 >>r8rggg
a-rg v6 rr4
r2r4 v6
r2r4
/---------------------------------------------------------------------
.next
#define A ra-rb>rc <ra-rb>rc
#define B re-re-re- re-re-re-
#define C rcrcrc rcrcrc
t152o5q5l16 $A
o5q5l16 $B
o5q5l16 $C
o5q5l16 r2r4
o4q8l16 ]a-2.[
o3q5l8 f>ce- c<a-f
o4q9l16 r2r4
r2r4
.next
#define D ]<<rb-rb-[#3 rb-rb-[#3 rgrg[#2
#define E ]<rdrd[#3 rc+rc[#3 <rbrb[#2
#define F ]a-ra-r[#3 a-ra-r[#3 a-ra-r[#2
#define G ]>frfr[#3 ere-r[#3 frfr[#2
q9 $D
q9 $E
r2r4
r2r4
q9 $F
q9l16 $G
r2 ]#2 drdr[#2
r2r4
.next
q5 > $A
q5 >> $B
$C
r2r4
q8 ]a-2.[
q5l8 <f>ce- c<a-f
r2r4
r2r4
.next
q9 $D
q9 $E
r2r4
r2r4
q9 $F
q9l16 $G
r2 ]#2 drdr[#2
r2r4
.next
#define A >>rcrdre- rcrdre-
v6q5 $A
v6q5 $A
v6 r2r4
v6 r2r4
v6q8l8 %d32 ]g4.[ %d%0 ggg
v6q5l8 <e-g>c <g>e-c
v6 r2r4
r2r4
.next
rdrc<rb- rargrd
rdrc<rb- rargr8
r2r4
r2r4
%d32 ]d4.[ %d%0 ddd
<<b->dg db-g
r2r4
r2r4
.next
#define A re-rfrg re-rfrg
$A
$A
r2r4
r2r4
%d32 ]<b-4.[ %d%0 b-b-b-
<gb->e- <b->ge-
r2r4
r2r4
.next
#define A rfre-rd rc<rbrg+
$A
$A
r2r4
r2r4
%d32 ]a-4.[ %d%0 g+g+f
<db>f <b>dd
r2r4
r2r4
.next
#define A rarb]#3 >rc<ra]#3 rb>rc]#3
$A
$A
r2r4
r2r4
]e4.[#5 e]#3ee]#3
c<b]#3a >c]#3<ba]#3
r2r4
r2r4
.next
#define A <rb-ra]#3 rgrg rfre
$A
$A
r2r4
r2r4
]c+4.[#5 c+c+c+
gf]#3e b-ag
r2r4
r2r4
.next
#define A rdrc[#3 <rb>rd[#3 rc<rb[#2
$A
$A
r2r4
r2r4
]<a4[#3 a4[#3 a4[#2[
fe[#3 df[#3 ed+[#2
r2r4
r2r4
.next
#define A o1 e^ee^ee>e
v6 r4r8 >re]#2 rere]#2
v6 r4r8 >rg+]#2 rarb]#2
v6 r2r4]#4
v6 r2r4
v6 <e&f&g+ >>e]#2 ee]#2
v6 q8l16 $A q5l8 e]#2 fg+]#2
v6 r2r4]#4
v6 r2r4
.next
r'8f4. f8f8f
>rc<rbra >rc<rbra
r2r4
r2r4
]e4.[ eee
q8 a&b&>c q5 <ab>c
r2r4
r2r4
.next
r4r8 rb-rb-rb-
r4r8 >rdrerf
r2r4
r2r4
<<e&f&b- >>b-b-b-
q8l16 $A q5l8 b->c+d
r2r4
r2r4
.next
r'8b4. b8b8b
r'8g+4. a8a8a
q5 o4rfrerd rfrerd
r2r4
]b4.[ bbb
q8 d&e&f q5 def
r2r4
r2r4
.next
r4r8]#2 >rerere]#2
r4r8]#2 rg+rarb]#2
r4r8]#2 rerere]#2
r2r4
<<e&f&g+ ]#2 >>g+ab]#2
r4r ]#2 rfg+]#2
q8l16 $A ]#2 l8 >eee]#2
r2r4
.next
r'8f4.]#2 f8f8f]#4
>rc<rbra]#2 >rc<rbra]#4
r'8e4.]#2 frfrf]#4
r2r4
q8 >c&d&e]#2 q5 cde]#2
q8 a&b&>c]#2 q5 <ab>c]#6
]e4.[#6 eee]#2
r2r4
.next
r4r8 rb-8b-8b-]#2
r4r8 >rdrerf]#2
r4r8 rb-rb-rb-]#2
r2r4]]
q8 o1e&f&b-]#2 q5 >>b->c+d]#2
r2r4
l16 $A ]#2 l8 >eee]#2
r2r4
.next
q8 rb4.]#2 b8b8b
q8 rg+4.]#2 a8a8a
>rfrerd]#2 rfrerd
rdrc<rb]#2 >rdrc<rb
q8 d&e&f]#2 q5 fg+a
q8 <b&>c&d]#2 q5 def
]e4.[ r4r
r2r4
.next
#define A rerf+ rg+rarb
q5v9 '8b8> $A
q8v9 g+8r4 >re8e8e
q5v9 '8e8 $A
q8v9 b8r4 r4r8
q5v9 '8g+ed+ dc<b
q5v9 '8e<ed+ dc<b
q8v9 r2r4
r2r4
.next
#define B >rc<rbra >rc<rbra
$B
r!+2e4. e8e8e
$B
r2r4
ab>c <ag+f
ab>c <ag+f
r2r4
r2r4
.next
#define C ]>r'8e[<<re]#4 rere]#4 rere[
#define D q5 r4]#4 <rd+rd]#4 rc<rb[
$C
$D
>r]'8e[r8 r2
r2r4
e>e]#4 e q8 e]#4 ee[
e>e]#4 f+ g+]#4 ab[
r2r4
r2r4
.next
#define E r!+2'8f+4.]#4 f+8]#4 f+8f+[
#define F >r!+2'8d+4.]#4 d+8]#4 d+8d+[
#define G <<rarb>rc]#4 <ra]#4 rb>rc[
$E
$F
$G
r2r4
!+2e4.]#4 e]#4 ee[
>c<ba]#4 >c]#4 <ba[
r2r4
r2r4
.next
q5 r'8g+ $A
q8 rer4 re8e8e
q5 <r'8g+ $A
r2r4
q5 '8e<ed+ dc<b
q5 '8b<ed+ dc<b
err2
r2r4
.next
$B
r!+2e4. e8e8e
$B
r2r4
ab>c <ag+f
ab>c <ag+f
r2r4
r2r4
.next
$C
$D
>r'8er8 r2
r2r4
e>e]#4 ee]#4 ee[
e>e]#4 f+g+]#4 ab[
r2r4
r2r4
.next
$E
$F
$G
r2r4
q8 !+2e4.]#4 e]#4 ee[
>c<ba ]#4 >c]#4 <ba[
r2r4
r2r4
.next
v9q8 g+8>re]#4 rfrb-]#4 >rera]
v9q8 e8rb]#4 >rcrf]#4 rb>re]
v9q8 <g+8>rg+]#4 ra>rd]#4 rg+>rc+]
v9q8 r2r4
v9q7 '8e>e]#4 e-d]#4 dc+]
v9q7 '8b>e]#4 ee]#4 ee]
v9q8 <err2
v9q8 r2r4
.next
>r!+2d[[<<rd ]#4 rg>rc]#4 rfrb]
r!+2a [[<<ra ]#4 >rdrg]#4 >rcrf]
r!+2f+[[<<rf+]#4 rb>re]#4 ra>rd]
r2r4
!+2c[[ c]#4 <bb-]#4 aa]
!+2e[[ e]#4 ee]#4 ee]
r2r4
r2r4
.next
>r!+2e[[o4ra ]#4 >rdrg]#4 >rcrf]
r!+2b [[o4re ]#4 ra>rd]#4 rg>rc]
r!+2e [[o4rc+]#4 rf+rb]#4 >rera]
r2r4
!+2g+[[ g]#4 ff]#4 ee-]
!+2e[[ <e]#4 ee]#4 ee]
r2r4
r2r4
.next
r!+2b-[[o4rera ]#4 >rdrg>rc]#4
r!+2f [[o3rb>re ]#4 ra>rdrg]#4
r!+2b-[[o3rg+>rc+]#4 rf+rb>re]#4
r2r4
!+2d [[dc+ ]#4 c<bb-]#4
!+2e [[ee ]#4 eee]#4
r2r4
r2r4
.next
r!+2f<rb >r!+2e<ra >r!+2d<rg
>r!+2c<rf+ r!+2bre r!+2ard
r!+2frd+ r!+2erc+ r!+2d<rb
r2r4
aa g+g f+f
ee ee ee
r2r4
r2r4
.next
>rc<rf ]rb-rf[#4 rd<rb-[#4
rgrc ]rf+<rb-[#4 rfrf[#4
>rc<ra ]rb-rf[#4 rdrd[#4
r2r4
ee ]ee[#4 ee[#4
r2 ]#4 dd[#4
q7 o2re- ]ed[#4 q8 <!+2b-4[#4
r2r4
.next
rfrd <rb-rf r!+2b-rf
rd<rb- rfrd r!+2drd
<rb-rf rd<rb- r!+2b-rb-
r2r4
ee ee ee
dd dd dd
]]f4 b-4 f4[[
r2r4
.next
r!+2br8 r!+2br8 r!+2br8
r!+2g+rf r!+2arf r!+2ar8
>r!+2drd r!+2drd r!+2d+rd+
o2r!+2brb r!+2brb r!+2brb
ee ee ee
dd dd d+d+
r2 o1'7br
]]o1b4 f4 f4[[
.next
>e8<re >re>re>re>re
g+8r8 r2
e8r8 r2
r2r4
q8l16 e8er >er>er>er>er
q8l16 <b8r8 r2
e8r8 r2
r2r4
.next
r!+2e<re<re< re<re>re
o7r!+2d<rd<rd< rd<rd>rd
r2r4
r2r4
!+2er<er<er< er<er>er
o6!+2dr<dr<dr< dr<dr>dr
r2r4
r2r4
.next
t-8 <r!+2e>re>re> re>re<re
<r!+2c>rc>rc> rc>rc<rc
r2r4
r2r4
<!+2er>er>er> er>er<er
<!+2cr>cr>cr> cr>cr<cr
r2r4
r2r4
.next
t-8 re<re t-8 <re<re t96 {re>rer}4
<rb<rb <rb<rb {rb->rb-r}4
r2r4
r2r4
er<er <er<er {er>err}4
<br<br <br<br {b-r>b-rr}4
r2r4
r2r4
/---------------------------------------------------------------------
.next
t152l24 q9v6 $X $X
l16 q8v6 >cr erar >crerar
l16 q8v6 o3ar r4 r4r8
l8 r2r4
l8 q5v6 r %d32 >cc ccr
l8 q5v6 a %d64 >ee eer
l8 q5v6 a >aa aar
l8 q5v6 r2r4
.next
$X ]#3 $Y
>crerar]#3 >cr]#3 cr]#3 cr]#3
r4r8]#3 o6ar]#3 ar]#3 ar]#3
r2r4
rcc]#3 c]#3 c]#6 r %d%0
ree]#3 e]#3 e]#6 r %d%0
raa]#3 a]#3 a]#6 r
r2r4]]#4
.next
$Z
<b-8r8 r4 <'9d24r12r8
f8r8 r2
r2r4
rf ff rd
rb- b-b- rb
ra aa re
o2dr r4 er
.next
v11l8 {a&>aa&>(a&<)3}4 a q8 >aaa
v11l8 r4 r o4cde
v11l8 r4 r o3aaa
r2r4
v11q8 ca r <<ab>c
v11q8 e>e r2
v11q8 <a>>c r o1ab>c
r2r4
.next
]a4.[ aaa
fed fed
]a4.[ aaa
r2r4
dc<b >dc<b
r2r4
dc<b >dc<b
r2r4
.next
q9 {<(a&>)3(a&<)3}4 a v7 q8 >>ccc
r4 r v7 aaa
r4 r v7 cde
r2r4
a>>c r v7 <<ab>c
r2r4
a>>e r v7 <<ab>c
r2r4
.next
]c4.[ c]#4c]#4c
]a4.[ a]#4a]#4a
fed f]#4e]#4d
r2r4
dc<b >d]#4c]#4<b
r2r4
dc<b >d]#4c]#4<b
r2r4
.next
v11q9 {<(c&>)3(c&<)3}4 c v8 q8 >eee
v11q9 {ra>>ra<<ra}4 r v8 q8 >ccc
v11 r4 r v8 cde
r2r4
v11 a>>e r v8 <<ab>c
v11 o3ra r2
v11 a>>e r v8 <<ab>c
r2r4
.next
]e4.[#5 eee]#3
]c4.[#5 ccc]#3
fed]#3 fed]#3
r2r4
dc<b]#3 >dc<b]#3
r2r4
dc<b]#3 >dc<b]#3
r2r4
.next
#define A ab>c]#3 dc<b]#3
!+2a4.]#3 >ccc]#3
cde]#3 aaa]#3
!+2a4.]#3 >fed]#3
r2r4
$A
r2r4
$A
r2r4
.next
!+2e4.]#3 aaa
>!+2c4.]#3 fed
cde]#3 aaa
r2r4
$A
r2r4
$A
r2r4
.next
v11q7 ]o7c[<<e efff
v11q7 ]o6a[r <reee-
v11q7 ]o6c[r r2
v11q7 r2r4
v11q7 ]o2a[>>e efff
v11q7 ]o2e[>>r reee-
v11q7 ]o1a[r r2
v11q7 r2r4
.next
#define A fb- ag+e
#define B df ff<b
#define C rd cd<g+
o7!+2f << $A
o7!+2b- << $B
o6!+2f < $C
r rr4 o4br
%d24 o3!+2f %d%0 > $A
%d48 o3!+2d %d%0 > $B
o2!+2e >> $C
r rr4 o3br
.next
o7!+2c<<e efff
o6!+2ar <reee-
o6!+2cr r2
r2r4
o3!+2a>e efff
o3!+2e>r reee-
o2!+2ar r2
r2r4
.next
o7!+2f << $A
o7!+2b- << $B
o6!+2f < $C
r rr4br
%d24 o3!+2f %d%0 > $A
%d48 o3!+2d %d%0 > $B
o2!+2e >> $C
r rr4br
.next
#define A cr<c+r>dr <<br>>cr<<ar
#define B er<b-r>f+r <a-r>er<g-r
#define C cr<er>dr <dr>cr<cr
#define D r4c+rr4 <brr4ar
#define E ra>rb-<ra >ra-<ra>rg-
#define F re>rg<rf+ >rf<re>re-
#define G ra>>rc+<<ra >rb<ra>ra
t160o7 $A
o6 $B
o6 $C
o5 $D
o3 $E
o3 $F
o2 $G
r1r2
.next
]o6b-[#4a[#4f d<b-a
]o6d[r4 r4r
]o5b-[#4a[#4f d<b-a
]o3b-[#4b-[#4b- b-b-a
]o3f[#4f[#4f fff
]o3d[#4d[#4d ddd
]o2a[#4a[#4a aaa
r2r4
.next
g+fe d<b>e
r2r4
g+fe d<b>e
g+g+g+ g+g+g+
eee eee
ddd ddd
bbb bbb
o2aaa aaa
.next
o6 $A
o5 $B
o5 $C
o4 $D
o2 $E
o2 $F
o1 $G
r1r2
.next
]o5b-[#4>f[#4d <b-af
]o5d[r4 r4r
]o4b-[#4>f[#4d <b-af
]o2b-[#4b-[#4b- b-aa
]o2f[#4f[#4f fff
]o2d[#4d[#4d ddd
]o1a[#4a[#4a aaa
r2r4
.next
ed<b g+fe
r2r4
ed<b g+fe
g+g+g+ g+g+g+
eee eee
ddd ddd
bbb bbb
o1aaa aaa
.next
t+4 q8v11 a<a aa !+2b-4&]#3
q8v11 <cr r4 <aa]#3
q8v11 ar r4 ff]#3
q8v11 r2r4
q8v11 aa aa !+2b-4&]#3
q8v11 er r4 aa]#3
q8v11 >cr r4 dd]#3
q8v11 ar r2
.next
b-4]#3 !+2b4]]#2 %d%18 >c[[%d%0 r
aa]#3 aa]]#2 %d32 a[[%d%0 a
ff]#3 f+f+]]#2 %d64 e[[%d%0 r
r2 o3!+2c r
b-4]#3 !+2b4]]#2 %d%18 a[[ %d%0 a
aa]#3 aa]]#2 %d32 e[[ %d%0 r
dd]#3 d+d+]]#2 %d64 c[[ %d%0 r
r2 !+2a r
.next
t+4 <aa]#3 !+2b-4]#3 !+2b4]]#2
r4]#3 aa]#3 aa]]#2
r4]#3 ff]#3 f+f+]]#2
r2r4
aa]#3 !+2b-4]#3 !+2b4]]#2
r4]#3 aa]#3 aa]]#2
r4]#3 dd]#3 d+d+]]#2
r2r4
.next
#define A d+<a>d
>c[[r<b- b>cd
a[[aa aab-
e[[rf f+ef
!+2cr4 r4r
a[[aa aaa
e[[rd $A
c[[r4 r4r
!+2ar4 r4r
.next
t+4 d+ef]#3 f+ab-]#3
b>c<b-]#3 b>ea]#3
f+aa]#3 a>cf]#3
r2r4
aa>d]#3 $A ]#3
$A ]#3 $A ]#3
r2r4
r2r4
.next
b>cf]#3 f+ab-]#3
aab-]#3 b>ea]#3
f+ea]#3 a>cf]#3
r4r]#9 r>ar
$A ]#3 $A ]#3
$A ]#3 $A ]#3
r2r4
r2r4
.next
t+4 b>cf]#3 f+ v13l4 a
aab-]#3 b v13l4 >e
f+ea]#3 a v13l4 >c
r2 v13l4 >a
$A ]#3 d+ v13l4 <a
$A ]#3 d+ v13l4 <a
r2 v13l4 r
r2 v13l4 r
.next
t-8 b-b>c fr2
aaa b-r2
ff+e fr2
b-b>c rr2
>dd+<a >dr2
>aar b-r2
o2dd+<a >fr2
r2r4 o2dr2
.next
e t76 o5r]{reee} t60 ]e1
b o5r2] ]c1
g+ o4r]{reee} ]e1
e r2 r2r4
e o3r]{reee} ]e1
b o2r2] ]a1
g r2 r2r4
e r2 r2r4
/---------------------------------------------------------------------
.end